home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / COPY-ALL.64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  85 lines
  1. 100 PRINT"[147]DISK COPY-ALL  JIM BUTTERFIELD"
  2. 110 A$="!JIM BUTTERFIELD!":A$=A$+A$+A$:A$=A$+A$+A$+A$+A$
  3. 130 P$="":DIM L2(232),L1%(232),N$(232),T%(232),T$(4)
  4. 140 DATAXXX,SEQ,PRG,USR,REL
  5. 150 FORJ=0TO4:READT$(J):NEXTJ
  6. 160 INPUT"FROM UNIT  8[157][157][157]";F
  7. 170 GOSUB830
  8. 180 F$=D$
  9. 190 INPUT"TO UNIT  9[157][157][157]";T
  10. 200 GOSUB830:T$=D$:IFT=FANDF$=T$THENRUN
  11. 230 N=0:CLOSE1:CLOSE15:OPEN 15,F,15:PRINT#15,"I"+F$
  12. 240 GOSUB860:IF E THEN STOP:GOTO230
  13. 250 Z=90:INPUT"PATTERN  *[157][157][157]";P$
  14. 260 P$="XXX"+LEFT$(P$+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16)
  15. 270 PRINT"HOLD DOWN 'Y' OR 'N' KEY TO SELECT"
  16. 280 PRINT"PROGRAMS TO BE COPIED..."
  17. 290 OPEN 1,F,3,"$"+F$
  18. 300 GOSUB860:IFETHENSTOP:GOTO230
  19. 310 SYS4156
  20. 320 R=255:GOTO 340
  21. 330 SYS4245
  22. 340 FORJ=16TO2STEP-1:IFASC(MID$(A$,J+3))=160THENNEXTJ
  23. 350 N$=MID$(A$,4,J)
  24. 360 T9=(ASC(A$)-128)AND15:IFT9<1ORT9>4GOTO470
  25. 370 L1%=ASC(MID$(A$,22))
  26. 380 L2=ASC(MID$(A$,29))+ASC(MID$(A$,30))*256
  27. 390 PRINTMID$(A$,4,16);" ";T$(T9)
  28. 400 P=PEEK(203)ANDR
  29. 410 GETZ$:IFZ$=""ANDP<064GOTO450
  30. 420 IFZ$="Y"ORZ$="N"THENZ=ASC(Z$):R=255:GOTO450
  31. 430 IFZ$=CHR$(13)THENR=0:GOTO450
  32. 440 GOTO410
  33. 450 IFZ<80THENPRINT"[145]                     [145]":GOTO470
  34. 460 N=N+1:L2(N)=L2:N$(N)=N$:T%(N)=T9:L1%(N)=L1%
  35. 470 IFST=0ANDN<232GOTO330
  36. 480 CLOSE1:CLOSE15:PRINT" * * * * *"
  37. 485 IFN=0THENPRINT"* NO PROGRAMS *":GOTO 800
  38. 490 FORJ=1TON
  39. 500 L2=L2(J):T%=T%(J):IFL>L2GOTO670
  40. 510 IFQ=0GOTO550
  41. 520 PRINT"*** OUTPUT DISK FULL"
  42. 530 INPUT"DO YOU HAVE A NEW ONE";Z$
  43. 540 IFASC(Z$)<>89THENEND
  44. 550 CLOSE15:OPEN15,T,15:REMUT"WANT TO NETHE OUTPUT DISK  N[157][157][157]";Z$
  45. 560 :         GOTO600
  46. 570 INPUT"DISK NAME,ID";X$,Y$
  47. 580 PRINT#15,"N"+T$+":"+X$+","+Y$
  48. 590 GOSUB860:IFETHENSTOP:GOTO550
  49. 600 PRINT#15,"I"+T$:OPEN1,T,0,"$"+T$+":!#$%&"
  50. 610 GOSUB860:IFETHENSTOP:GOTO550
  51. 620 GOSUB890:GOSUB890:Q=Q+1
  52. 630 GET#1,X$:IFX$<>""GOTO630
  53. 640 GOSUB890
  54. 650 L=X+Y*256:PRINT"(";L;"BLOCKS FREE )"
  55. 660 CLOSE1:CLOSE15:GOTO500
  56. 670 OPEN14,F,15:OPEN15,T,15
  57. 680 PRINTLEFT$(N$(J)+"                    ",21);
  58. 690 OPEN3,F,3,F$+":"+N$(J)+","+T$(T%)
  59. 700 GOSUB855:IFETHENPRINT"** ";E$;E:GOTO780
  60. 710 IFT%=4THENOPEN4,T,4,T$+":"+N$(J)+",L,"+CHR$(L1%(J)):GOTO730
  61. 720 OPEN4,T,4,T$+":"+N$(J)+","+T$(T%)+",W"
  62. 730 L=L-L2:GOSUB860:IFETHENPRINT"*** ";E$;E:GOTO780
  63. 740 IFT%=4THENSYS4462:GOSUB855:GOTO760
  64. 750 SYS4443
  65. 760 N$(J)="":GOSUB860:IFETHENPRINT"**** ";E$;E:GOTO780
  66. 770 PRINT"[145]"
  67. 780 CLOSE4:CLOSE3:CLOSE15:CLOSE14
  68. 790 NEXTJ
  69. 800 X=FRE(0):INPUT"ANOTHER INPUT DISK READY";Z$
  70. 810 IFASC(Z$)=89GOTO230
  71. 820 END
  72. 830 INPUT"DRIVE  0[157][157][157]";D
  73. 840 IFD*D<>DGOTO830
  74. 850 D$=CHR$(D+48):RETURN
  75. 855 INPUT#14,E,E$,E1,E2:GOTO870
  76. 860 INPUT#15,E,E$,E1,E2
  77. 870 IFE=0THENE=(ST AND 191):E$="*ST*"
  78. 880 RETURN
  79. 890 GET#1,X$
  80. 900 GET#1,X$
  81. 910 GET#1,X$
  82. 920 X=ASC(X$+CHR$(0))
  83. 930 GET#1,X$:Y=ASC(X$+CHR$(0))
  84. 940 RETURN
  85.